#!/usr/bin/perl

use strict;
use warnings;

my $filename="/home/ktang/projects/genome_stats/sordaria/feature_alignments/gb_sordaria.exon.stats.dat";
my $FNAFILE;

open ($FNAFILE, '<', $filename)
    or die "Cannot open:$filename:$!";

my $max=0;

print "running  ";

while(my $line = <$FNAFILE>)
{
   
    chomp $line;
    if ($line =~ /exon\.(\d+)/ )
    {
      if ($1 > $max)
      {
	  $max=$1;
      }
    }
}

close ($FNAFILE);
print " \n$max\n";
print $max;
    print "\n";
